home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 11 / 011.d81 / lunar lander (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  114 lines
  1. 1 poke46,66:clr
  2. 5 poke53280,0:poke53281,0
  3. 6 print"[147]          real time lunar lander"
  4. 7 print"           joystick in port #2":poke53269,0:j=56320:dimh$(236)
  5. 8 fori=1to4000:next
  6. 9 f$=chr$(180) : l$=chr$(170)
  7. 10 printchr$(147)"       preparing to launch lander      [146]"
  8. 11 print"  100  "f$"                        "l$" 500
  9. 12 [131] 0.0,.10,.40,1.0,1.5,2.0,5.0,10.0,20.0,60.0
  10. 13 [131] 235,219,203,179,163,155,131,115,99
  11. 14 [129]i[178]0[164]9:[135]t(i):[130]:[129]i[178]1[164]9:[135]yb(i):[130]
  12. 15 [131] 500,483,466,450,433,415,397,387,377,368,359,350,340,330,320
  13. 16 [131] 310,300,290,281,272,263,254,244,236,228,220,210,200,192,184,176
  14. 17 [131] 168,161,154,147,140,136,132,128,124,120,116,112,108,104,100,96
  15. 18 [131] 92 ,89 ,86 ,83 ,80 ,77 ,74 ,71 ,68 ,65 ,55 ,40 ,30 ,20 ,10 ,0  ,
  16. 19 [129]i[178]50[164]236[169]3:[135]h$(i):[130]:[135]qw$:h$(197)[178]"86 "
  17. 20 [153]"  80.0 "f$"                        "l$" 450
  18. 30 print"  60.0 "f$"                        "l$" 400
  19. 40 [153]"  50.0 "f$"                        "l$" 375
  20. 50 print"  40.0 "f$"                        "l$" 350
  21. 60 [153]"  30.0 "f$"                        "l$" 325
  22. 70 print"  20.0 "f$"                        "l$" 300
  23. 80 [153]"  15.0 "f$"                        "l$" 275
  24. 90 print"  10.0 "f$"                        "l$" 250
  25. 100 [153]"  7.50 "f$"                        "l$" 225
  26. 110 print"  5.00 "f$"                        "l$" 200
  27. 120 [153]"  4.00 "f$"                        "l$" 175
  28. 130 print"  3.00 "f$"                        "l$" 150
  29. 140 [153]"  2.00 "f$"                        "l$" 140
  30. 150 print"  1.50 "f$"                        "l$" 130
  31. 160 [153]"  1.25 "f$"                        "l$" 120
  32. 170 print"  1.00 "f$"                        "l$" 110
  33. 180 [153]"  0.80 "f$"                        "l$" 100
  34. 190 print"  0.60 "f$"                        "l$"  90
  35. 200 [153]"  0.40 "f$"                        "l$"  80
  36. 210 print"  0.20 "f$"                        "l$"  70
  37. 220 [153]"  0.10 "f$"                        "l$"  60
  38. 230 print"  0.05 "f$"                        "l$"  30
  39. 240 [153]"  0.00 "[199](204);:[129]i[178]1[164]24:[153][199](175);:[130]:[153][199](186);
  40. 250 [153]"   0";
  41. 300 v[178]53248:[151]v[170]16,2:[151]53265,27:[151]v[170]21,0
  42. 301 [129]i[178]0[164]3:[151]2040[170]i,250[170]i:[151]v[170]39[170]i,1:[130]
  43. 302 [129]i[178]0[164]7:p(i)[178]2[174]i:[130]:d[178]1:e[178]2:f[178]7:g[178]8:h[178]16000:c[178]64:a[178]20:z[178]3
  44. 310 [129]i[178].[164]144:[135]t:[151]1024,i:[139]t[179]0[167][129]j[178]1[164][171]t:[151]h[170]p[170]j,0:[130]:p[178]p[171]t:[137]320
  45. 315 p[178]p[170]1:[151]h[170]p,t
  46. 320 [130]
  47. 321 a[178]100.0:l$[178]"       "
  48. 330 x1[178]v:y1[178]v[170]1:x2[178]v[170]2:y2[178]v[170]3:x3[178]v[170]4:y3[178]v[170]5:x4[178]v[170]6:y4[178]v[170]7
  49. 335 t[178]51:b[178]236:l[178]18:r[178]65
  50. 340 [151]x1,l:[151]x2,r:f$[178]"5000":[151]x3,160:[151]y3,t:[151]v[170]29,12
  51. 350 [151]v[170]23,8:[151]v[170]21,7:j[178]56320:e[178]125:q[178]126:g[178]3:c[178]162:[153]"";
  52. 360 v$[178]"0.0000":a$[178]"100.00"
  53. 370 i[178]2.4:u[178]212:[151]y1,t:[151]y2,u:r[178]2000:s[178]5000:t[178]10:y[178]200
  54. 375 c[178]16:d[178]6:[151]v[170]21,7
  55. 380 [153]"alt="a$" vel="v$" thr="h$(u)" fuel="f$:[153]"on";
  56. 385 f[178]5000:w[178]0:a[178]100
  57. 390 [153]""a$""v$""h$(u)""f$:[153]"on";
  58. 400 z[178][194](j):[139]z[178]e[175](u[179]b)[167]u[178]u[170]g:[151]y2,u:[137]420
  59. 403 [139]z[178]q[175](u[177]t)[167]u[178]u[171]g:[139]u[177]50[167][151]y2,u:[137]420
  60. 404 [139]u[179]50[167]u[178]50
  61. 407 [139](z[175]c)[178].[167]u[178]b:[151]y2,u
  62. 420 x[178][197](h$(u)):f[178]f[171]x[173]t:v2[178](r[172]x[173](s[170]f))[171]t[172]i:w[178]w[170]v2[173]t:a[178]a[170]w[173]y
  63. 430 a$[178][200]([196](a)[170]l$,d):v$[178][200]([196](w)[170]l$,d):f$[178][202]([196](f)[170]l$,2,4)
  64. 440 [141]500
  65. 445 [139]a[177].01[167]450
  66. 446 [137]470
  67. 450 [139]f[177][178].[167]390
  68. 460 [153][199](19)[199](18)"          you are out of fuel          ":[137]474
  69. 470 [153]"   throttle locked up"
  70. 471 [153]"   retros firing"
  71. 472 [153]"   begin landingwait"
  72. 474 q[178]237[171][194](y1):[129]i[178]1[164]q:z[178][194](y1)[170]1:[151]y1,z:[151]y3,z[171]5
  73. 475 [129]l[178]1[164]80:[130]:[130]:[151]y1,235:[139]f[179].[167]482
  74. 480 [139]w[177][178][171]5[167][137]485
  75. 481 [139]w[177][178][171]15[167]490
  76. 482 [153]"     way too hardwait":[151]2042,253
  77. 483 [153]" you bought the farmwait"
  78. 484 [151]x3[170]2,160:[151]y3,225:[137]650
  79. 485 [153]"great landingwait":[137]650
  80. 490 [153]"  not so hot, butwait"
  81. 491 [153]"    you made itwait"
  82. 492 [137]650
  83. 500 [139]a[179]0[167][142]
  84. 501 [139]a[179]t(1)[167]y[178]yb(1)[171](a[171]t(0))[172]160:[137]600
  85. 510 [139]a[179]t(2)[167]y[178]yb(2)[171](a[171]t(1))[172]80:[137]600
  86. 520 [139]a[179]t(3)[167]y[178]yb(3)[171](a[171]t(2))[172]40:[137]600
  87. 530 [139]a[179]t(4)[167]y[178]yb(4)[171](a[171]t(3))[172]32:[137]600
  88. 540 [139]a[179]t(5)[167]y[178]yb(5)[171](a[171]t(4))[172]16:[137]600
  89. 550 [139]a[179]t(6)[167]y[178]yb(6)[171](a[171]t(5))[172]8:[137]600
  90. 560 [139]a[179]t(7)[167]y[178]yb(7)[171](a[171]t(6))[172]3.2:[137]600
  91. 570 [139]a[179]t(8)[167]y[178]yb(8)[171](a[171]t(7))[172]1.6:[137]600
  92. 580 [139]a[179]t(9)[167]y[178]yb(9)[171](a[171]t(8))[172].8:[137]600
  93. 590 y[178]67[171](a[171]t(9))[172].4
  94. 600 [139]y[177]50[167][151]y1,[181](y):[151]y3,[181](y):co[178]0:[142]
  95. 605 co[178]co[170]1:[139]co[179]15[167][142]
  96. 610 [153]"you are leaving thewait"
  97. 615 [153]"moon's gravitational fieldwait"
  98. 620 [153]"and will drift endlesslywait"
  99. 625 [153]"in the dark reaches of spacewait"
  100. 650 [153][199](19)[199](18)"      f1 to play again, f3 to stop     "
  101. 652 [161]a$:[139]a$[178][199](133)[167][138]
  102. 653 [139]a$[178][199](134)[167][151]v[170]21,0:[153][199](147):[151]46,27:[137]60000
  103. 654 [137]652
  104. 700 [131] -18,4,-2,7,-2,7,192,3,255,240,255,255,252,3,255,240,0,7,192,0,7
  105. 701 [131] -2,4,-36,64,0,1,192,0,7,192,0,31,255,192,127,255,192,31,255,192
  106. 702 [131] 7,192,0,1,192,-2,64,-39,129,0,1,129,128,7,255,224,30,126,120,252
  107. 703 [131] 60,63,30,126,120,7,255,224,1,255,128,1,129,128,3,0,192,15,129
  108. 704 [131] 240,-16,15,197,224,31,247,226,29,255,254,125,254,124,127,255
  109. 705 [131] 254,255,255,255,199,187,187,219,17,147,219,85,131,219,85,171
  110. 706 [131] 199,85,187,219,85,187,219,85,187,219,17,187,199,187,187,255,255
  111. 707 [131] 254,127,239,254,127,239,254,63,255,228,32,253,196,3,157,128
  112. 60000 [153]"loadload"[199](34)"payload"[199](34)",8":[153]"run"
  113. 60002 [151]631,13:[151]632,13:[151]198,2:[128]
  114.